(info-lookup): Reuse an existing Info window.

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 8242932c3afc2f5f8063a1dca912df38858fc20a..3513812183821209242b56679324ce7c8b80c905 100644 (file)
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -338,7 +338,8 @@ If optional argument QUERY is non-nil, query for the help mode."
               (info-frame (and window (window-frame window))))
          (if (and info-frame
                   (display-multi-frame-p)
-                  (memq info-frame (frames-on-display-list)))
+                  (memq info-frame (frames-on-display-list))
+                  (not (eq info-frame (selected-frame))))
            (select-frame info-frame)
          (switch-to-buffer-other-window "*info*")))))
     (while (and (not found) modes)